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Program and dataset to produce plant distribution map by means of personal computer are 
introduced. In this report, the program and its operation manual to produce blank map of desired region 
are described. When two pairs of longitude and latitude of diagonal corners and the name of desired 
region are given as initial parameters the program searches BORDER, position datafile of coast line and 
prefecture borders of Japan, picking up suitable data to be contained in the map. Collected data are 
calculated to draw dotted blank map and are printed out. This base map can be corrected until the user 
is satisfied (Fig. 2) and then preserved in TESTMAP file. 
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Fig. 1. Schema explaining the relation between 
databases and programs. 

I I : Database. Italic: Program. 

[_”___! : Hardcopy. 

BORDER: Numerical database of positions of 
prefecture border and coast line. 

TESTMAP: Pictorial matrix of blank map of desired 
region produced by the program MAPCORR. 

FLORA: Flora database of desired region containing 
the position of habitat and other essential items. 

MAPCORR: Program to produce base map. 

FLMAP: Program to produce dotted distribution 
maps by combining databases, TESTMAP and 
FLORA. 
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—, 1987a. m 
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—, 1987b. sin • mihrnm^rnm nm.m, 

135+199M. 


Tab. 1. List of program MAPCORR to produce blank map. 


10 REM **5/0*;*" J 0O\Li b 
7<H : MAPCORR ** 

20 OPTION BASE 1 
30 INPUT PROMPT n vy10:l, 
T'ft'f :2?”:A 
40 IF A = 2 THEN 90 
50 INPUT PROMPT * * a 0h1 fe ^ 0 7 < 
11/ * b 9 : 1, 9 Ji 9 * T : 2 ? ” : M A P 
60 OPEN #8:"BORDER.DT/12”, 
FIXED (72) 

70 DELETE ”TESTMA P.DT/ 1 2* 

80 CREATE "TESTMAP.DT/ 1 2 *, 
CONTINUOUS ( 1 0 0, 1 0 0 ) 

90 OPEN #7 : "TESTMAP.DT/12", 
FIXED (100) 

100 OPEN #6 : $LP (72) 

110 DIM P$( 1 0 0, 1 0 0 )*1 
120 DIM A $* 1 0 0 
130 DIM D $ * 1 0 0 
140 DIM Q$*72 
150 IF A = 2 THEN 1160 
160 FOR 1=1 TO 100 

170 FOR J=1 TO 100 

180 P$(I,J)=” ” 

190 NEXT J 

200 NEXT I 

210 REM * * i/ a * * J ** 

220 PRINT ” t ? " 'J 9 1 b J 

--,--)* 2 " 

230 INPUT KSD,KSM, ISD, ISM, 
KED,KEM, I ED, IEM 
24 0 INPUT PROMPT u 

h Ovti :”:SYS$,NP$ 

250 IF SYS$=”C” THEN 260 
ELSE 260 
260 DK=60/16 
27 0 DI = 6 0/24 
280 KSM = DK* I NT(KSM/DK) 

290 KEM=DK*CEIL(KEM/DK) 


300 ISM=DI*CEIL(ISM/DI) 

310 IEM = DI'*INT(IEM/DI) 

320 KS=KSD*60+KSM 

330 IS=ISD*60+ISM 

340 KE=KED*60+KEM 

350 IE=IED*60+IEM 

3 6 0 NK = CEIL((KE-KS)/DK)*2 + 4 

370 NI=CEIL((IS-IE)/DI)*2+2 

380 REM T b ib ** 

390 KM=KSM*100 
400 IM=ISM*100 
410 IF K M < 1 0 0 0 THEN D A M $ = 
"0" 

420 IF K M <10 0 THEN D A M $ = 
”00” 

430 IF K M <10 THEN D A M $ = 

” 0 0 0 ” 

440 KM$ = DAM$&STR$ (KM) 

450 IF KM>=1000 THEN KM$= 
STR$ (KM) 

46 0 IF IM < 1 0 0 0 THEN D A M $ = 
”0” 

470 IF I M < 10 0 THEN D A M $ = 
”00” 

480 IF IM <10 THEN D A M $ = 

” 0 0 0 ” 

49 0 IM$=DAM$&STR$ (IM) 

500 IF IM > = 1 0 0 0 THEN IM$ = 
STR$(IM) 

510 D$ = STR$(KSD)”&KM$ (1 : 
2)1".”&KM$(3:4)&”‘E,”&S 
TR$(ISD)&"*”&IM$(1:2)& 

” & I M $ (3 : 4)& ” *N,33 = ”& 
STR$(NK),?7=”&STR$ 

(NI)&”,”&SYS$&”,”& N P$ 
520 PRINT D$ 

530 REM * * * X” ) no * * 

540 FOR J=1 TO NK 

55 0 IF J <3 THEN 670 

56 0 IF J > N K- 2 THEN 670 
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57 0 X = K S + (DK/2)* (J- 3) 

58 0 IF INT (X/15)-X/15<>0 

THEN 670 
590 P$(l, 

6 0 0 P$ (NI,J) = * •” 

610 IF INT (X / 6 0)-X/ 6 O 0 G 
THEN 720 

62 0 R $ = S T R $ (X /6 0) 

630 JJ = J 

640 PS(1,J)=R$(2:2) 

650 P$(NI,J)=R$(2:2) 

660 GO TO 720 
67 0 P $ (1,J)= ” - " 

680 P$(NI,J)=”-" 

690 IF J-loJJ THEN 720 

7 0 0 P$ (1,J)= R$(3:3) 

710 P$(NI,J)=R$ (3:3) 

720 NEXT J 

730 FOR 1=1 TO NI 
740 IF I< 2 THEN 900 

7 5 0 IF I> NI - 1 THEN 90 0 
760 Y»IS-(DI/2)*(I-2) 

770 IF INT(Y/10)-Y/10<>0 

THEN 900 
780 P$(I,1)="•" 

790 P$(I,NK)= "•” 

8 0 0 IF INT (Y/60)-Y/60<>0 

THEN 950 

810 S$=STR$(Y/60) 

820 I I = I 

83 0 P$ (I , 1)=S$ (1 : 1) 

84 0 P$ (I , 2) = S$(2:2) 

85 0 P$(I-1, 1) = " " 

86 0 P$ (I,NK-1)=S$ (1 : 1) 

870 P$(I,NK)=S$(2:2) 

88 0 PS (I - 1,NK) -* * 

890 GO TO 950 

9 0 0 PS (I , 1)=’ ! " 

910 P$ (I,NK)= ” ! ” 

920 IF I - 1 0 I I THEN 950 

93 0 P$ (I , 1)=" " 

94 0 P$ (I ,NK) = " " 

950 NEXT I 

960 IF M A P = 2 THEN 1580 
970 GET 88:9$ 

980 AT EOF 88:1580 

990 FOR 1=1 TO 72 STEP 12 

1 0 0 0 IF 9$ (I : I + 1) =" * 

THEN 1120 


Continued. 

1010 IF 9 $ ( I : I + 1)= * 0 0 " 
THEN 1120 

1 0 2 0 IF VAL(9$(I + 2 : I + 5))> 
=90 THEN 1120 
1 0 3 0 K9 = (VAL (9$ (I : 1 + 1) ) + 
100)*60+VAL(9$(I+2:I 
+ 5)) 

1040 I9 = VAL(9$(I + 6 : 1+7))* 
6 Q + VAL(Q$(I + 8 : I + ID) 
1 0 5 0 K9 = I P ( ( (KQ-KS)*2)/DK 
) +3 

1060 I9=IP(((IS-I9)*2)/DI 
) +2 

1070 IF K 9 < 3 THEN 1120 
1080 IF K 9 > N K- 2 THEN 1120 
1090 IF 19 < 2 THEN 1120 
110 0 IF I 9 > N I - 1 THEN 1120 
1110 P$ (19,K9) = ” • " 

1120 NEXT I 
1130 GO TO 970 
1140 GO TO 1580 

1150 REM ) a 5 MJ ** 

1160 GET 87 : D$ 

1170 KS=VAL(D$(1:3))*60+ 
VAL (D$ (5:9)) 

1180 IS=VAL(D$(13:14))*60 
+ VAL (D$ (16:20)) 

1190 NI = VAL (D$ (33 : 34) ) 

1 2 0 0 NK = VAL (D$ (27 : 28)) 
1210 SYS$ = D$ (36 : 36) 

1220 NP$=D$(38:45) 

1240 DK=60/16 

1 25 0 D I = 6 0/2 4 

1260 REM J a5 h 0 

1270 FOR 1=1 TO NI 

1280 GET 8 7 : A $ 

1290 AT EOF 87:1340 

1300 FOR J=1 TO NK 

1310 P$ (I ,J)=A$ (J : J) 

1320 NEXT J 

1330 NEXT I 

1340 RESTORE 87 

1350 GOSUB 1380 

1360 GO TO 1580 

1370 REM **?:*" ) 7°')^ ** 

1 38 0 OUTPUT 86 : D$ ; 

31B1B43063 
1390 FOR 1=1 TO NI 
1400 FOR J=1 TO NK 
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1410 OUTPUT 8 6 : P $ (I , J ) ; 
1420 NEXT J 

1 43 0 IF INT (I /1 0)-I/10o0 
THEN 1450 

1440 OUTPUT 86:1/10; 

1 4 5 0 OUTPUT #6 : 31B1B430C53 

1460 NEXT I 

1470 OUTPUT 86 

1480 FOR 1=1 TO 10 

1490 IF I * 1 0 > N K THEN 1520 

1500 OUTPUT 86:" 

; STR$(I) ; 

1510 NEXT I 

1520 REM **+''a9Ji*Ji9 ** 

1 53 0 FOR M =1 TO 4 
1540 OUTPUT 86:31B1B43063 
1550 NEXT M 
1560 RETURN 

1570 REM **74fc47 v '-9 buns 
1580 INPUT PROMPT ”7-9 n? 
(9°'J*b = PRT;744b" “aO 
'Ja9 = BOR;94Hb ? 4 t: 4 = 
TIT) : ” : B $ 


1590 

IF B$=”PRT” 

THEN 


1950 


1600 

IF B$=”TIT” 

THEN 


1820 


1610 

IF B $ < > ” BOR” 

THEN 


1870 


1620 

B $ = ” • ” 


1630 

PRINT ” 7 4 4 h " 

- a. 9 'J a 9 . 


K°. * , 1°. *= — 

_ • 1 • 


— (49u = 999.0) 

1640 

INPUT K, I 


1650 

IF K = 999 THEN 1580 

1660 

IF K = 0 THEN 

1640 

1670 

IF 1=0 THEN 

1640 

1680 

IF K < 1 THEN 

K = K R + K 

1690 

IF I < 1 THEN 

I = I R + I 

1700 

KR= IP (K) 


1710 

I R = I P (I ) 


1720 

K=INT(K)* 6 0 + F P ( K )* 


100 


1730 

I=INT(I)*60+FP(I)* 


100 


1740 

K= I P ( (K-KS)* 

2/D K)+3 

1750 

I = I NT ( (IS- I) 

* 2/DI)+ 3 

1760 

IF K < 3 THEN 

1640 


Continued. 

1770 IF K > N K - 2 THEN 1640 
1 7 8 0 IF I <2 THEN 1640 
1790 IF I > N I - 1 THEN 1640 
1 8 0 0 P$ (I ,K)=B$ 

1810 GO TO 1640 
1820 GET 87:D$ 

1 83 0 PRINT D$ 

1840 PRINT ” 5 4 Mb * 9 V '7 
ZxO'izO t 3 ( 4 * 3 9 9 7" 

ba9) ” 

1 8 5 0 INPUT D$ 

1860 GO TO 1170 
1870 PRINT ”74t49€'J(K,I)? 
( 7-9 ^^^0 = 99 , 0 :^^'^ = 

99,99) ” 

1 8 8 0 INPUT K, I 

1890 IF K = 99 THEN 1940 
1900 IF I > N I THEN 1880 
1910 IF K > N K THEN 1880 
1920 P$ (I ,K)= B$ 

1930 GO TO 1880 
1940 IF 1=0 THEN 1580 
1950 GOSUB 1380 
1960 REM ** it *7 4 *** 

1970 INPUT PROMPT ” 11*7 4? 

0 K = O , t 9 4 * b “ = N , b 'J 7 9 
= C : ” :C$ 

1980 IF C$=”N” THEN 1580 
1990 IF C$=”C” THEN 2100 

2 0 0 0 REM ***9" * 7741 b (87) 

“ * * 

2010 A $ = N $ 

2 0 2 0 PUT 8 7 : D $ 

2030 FOR 1=1 TO NI 
2040 FOR J=1 TO NK 
2 0 5 0 A$ = A$&P$ (I ,J) 

2060 NEXT J 

2070 PUT 8 7:A $ 

2 0 8 0 A $ = N $ 

2090 NEXT I 

2100 OUTPUT 8 6 : 3 0 C 3 

2110 CLOSE 86 

2120 CLOSE 87 

2125 IF A = 2 THEN 2140 

2130 CLOSE 88 

2140 END 




188 


1 % 66 # 


«3 ^ 6 n 


138*00. flO'B, 36*05. OO’N,33 = 44,?? = 50,C,ili 3? 138*00. 00’E, 36*05. 00' N, 33 = 44, ?? = 50 , C, Oi SI 

-38.39-, .-38..---.39- 


36 


1 

-38- 


36 36 


•.39. 

3 4 


5 

5 cm 


3 

-38- 


36 


■39- 


138* 00. 00’B, 36* 05.00’N, 33 = 44,3? = 5 0,C, ill Si 


1 


2 


3 


4 


5 



138*00.00’E,36*05.00’N, 33 = 44, 3? = 50,C,ill 3R 
,-38.-..39-, 

i ; i 

I : i 

36 36 

! ! 1 



Fig. 2. Process of base map production and correction. Explanation in text. 







































